home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Guide.dxr / 00248_installControlSideBoard.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  1.9 KB  |  55 lines
  1. on einstallcontrolsideboard
  2.   global contentsprite, guidenumber, rectlist, actslist, copyactslist, newview, nextnum, pagedown, pageup, prerectlistnum
  3.   case guidenumber & newview of
  4.     "11":
  5.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  6.     "12":
  7.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  8.     "13":
  9.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  10.     "14":
  11.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60), rect(0, 62, 187, 77)]
  12.     "15":
  13.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  14.     "16":
  15.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  16.     "17":
  17.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  18.     "18":
  19.       set rectlist to [rect(0, 0, 187, 28), rect(0, 31, 187, 45), rect(0, 47, 187, 77)]
  20.     "19":
  21.       set rectlist to [rect(0, 0, 187, 28), rect(0, 31, 187, 45)]
  22.     "21":
  23.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 60)]
  24.     "22":
  25.       set rectlist to [rect(0, 0, 187, 44), rect(0, 46, 187, 60)]
  26.     "23":
  27.       set rectlist to [rect(0, 0, 187, 28), rect(0, 32, 187, 45), rect(0, 47, 187, 60)]
  28.     "31":
  29.       set rectlist to [rect(0, 0, 187, 28)]
  30.     "41":
  31.       set rectlist to [rect(0, 0, 187, 28), rect(0, 31, 187, 59)]
  32.   end case
  33.   set filelist to "PickObject" && guidenumber
  34.   if the number of member filelist > 0 then
  35.     set actslist to []
  36.     if newview = 1 then
  37.       set nextnum to 1
  38.     else
  39.       if pagedown then
  40.         set nextnum to nextnum + prerectlistnum
  41.       else
  42.         if pageup then
  43.           set nextnum to nextnum - count(rectlist)
  44.         end if
  45.       end if
  46.     end if
  47.     set prerectlistnum to count(rectlist)
  48.     repeat with i = nextnum to nextnum + count(rectlist) - 1
  49.       append(actslist, "toObjectMovie" && QUOTE & line i of field filelist & QUOTE)
  50.     end repeat
  51.   end if
  52.   set copyactslist to duplicate(actslist)
  53.   addsbcontrol(sbcontentsprite, rectlist, actslist, #up)
  54. end
  55.